HPAVC

home *** CD-ROM | disk | FTP | other *** search

/ HPAVC / HPAVC CD-ROM.iso / pc / HELPINFO.ZIP / VB_PROG.ZIP / HELPINFO.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1994-01-04 | 24.8 KB | 695 lines

VERSION 2.00 Begin Form frmSample BackColor = &H00808080& BorderStyle = 3 'Fixed Double Caption = "Sample Help" ClientHeight = 3795 ClientLeft = 5625 ClientTop = 4320 ClientWidth = 5130 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 4485 Left = 5565 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 3795 ScaleWidth = 5130 Top = 3690 Width = 5250 Begin SSCommand cmdClose BevelWidth = 3 Caption = "Copy" Font3D = 1 'Raised w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000040& Height = 375 Index = 2 Left = 3100 TabIndex = 31 Top = 2220 Width = 1885 End Begin SSPanel cmdReadMe BevelInner = 1 'Inset BevelWidth = 3 Caption = "Panel3D1" Height = 3795 Left = 0 Outline = -1 'True TabIndex = 0 Top = 0 Width = 5145 Begin SSCommand cmdClose BevelWidth = 3 Caption = "Print" Font3D = 1 'Raised w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000040& Height = 375 Index = 3 Left = 3100 TabIndex = 32 Top = 2580 Width = 1885 End Begin SSCommand cmdClose BevelWidth = 3 Caption = "Close Glossary" Font3D = 1 'Raised w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000040& Height = 375 Index = 1 Left = 1245 TabIndex = 30 Top = 2580 Width = 1875 End Begin SSCommand cmdClose BevelWidth = 3 Caption = "Close Help" Font3D = 1 'Raised w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000040& Height = 375 Index = 0 Left = 1245 TabIndex = 29 Top = 2220 Width = 1875 End Begin SSCommand cmdGlossary Caption = "O" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 15 Left = 495 TabIndex = 28 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "P" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 16 Left = 870 TabIndex = 27 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "Q" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 17 Left = 1245 TabIndex = 26 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "R" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 18 Left = 1620 TabIndex = 25 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "S" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 19 Left = 1995 TabIndex = 24 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "T" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 20 Left = 2370 TabIndex = 23 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "U" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 21 Left = 2745 TabIndex = 22 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "V" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 22 Left = 3120 TabIndex = 21 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "W" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 23 Left = 3495 TabIndex = 20 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "X" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 24 Left = 3870 TabIndex = 19 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "Y" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 25 Left = 4245 TabIndex = 18 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "Z" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 26 Left = 4620 TabIndex = 17 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "N" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 14 Left = 120 TabIndex = 16 Top = 3300 Width = 375 End Begin SSCommand cmdGlossary Caption = "B" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 2 Left = 495 TabIndex = 15 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "C" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 3 Left = 870 TabIndex = 14 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "D" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 4 Left = 1245 TabIndex = 13 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "E" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 5 Left = 1620 TabIndex = 12 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "F" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 6 Left = 1995 TabIndex = 11 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "G" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 7 Left = 2370 TabIndex = 10 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "H" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 8 Left = 2745 TabIndex = 9 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "I" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 9 Left = 3120 TabIndex = 8 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "J" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 10 Left = 3495 TabIndex = 7 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "K" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 11 Left = 3870 TabIndex = 6 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "L" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 12 Left = 4245 TabIndex = 5 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "M" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 13 Left = 4620 TabIndex = 4 Top = 2940 Width = 375 End Begin SSCommand cmdGlossary Caption = "A" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 1 Left = 120 TabIndex = 3 Top = 2940 Width = 375 End Begin SSCommand cmdHelp BevelWidth = 3 Caption = "Help" Font3D = 4 'Inset w/heavy shading FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H0000FF00& Height = 735 Left = 120 TabIndex = 2 Top = 2220 Width = 1145 End Begin TextBox txtIntro Alignment = 2 'Center BackColor = &H00FFFFFF& Enabled = 0 'False ForeColor = &H00800000& Height = 2115 HideSelection = 0 'False Left = 120 MultiLine = -1 'True TabIndex = 1 TabStop = 0 'False Top = 120 Width = 4860 End End Begin Menu menuExit Caption = "E&xit" End Begin Menu mnuCopyright Caption = "&Copyright" End Begin Menu mnuHelp Caption = "&Help" Begin Menu mnuContents Caption = "&Contents" End Begin Menu mnuSearch Caption = "&Search" End Begin Menu mnuGlossary Caption = "&Glossary" End Begin Menu mnuReadMeFirst Caption = "&Read Me First" End Begin Menu mnuSep1 Caption = "-" End Begin Menu mnuHelpOnHelp Caption = "&Help On Help" End End Sub cmdClose_Click (Index As Integer) Dim macro As String If Index = 0 Then macro = "CloseWindow(`main')" ElseIf Index = 1 Then macro = "CloseWindow(`glos_win')" ElseIf Index = 3 Then macro = "Print()" Else macro = "CopyDialog()" End If Call HelpMenu(8, 0, macro) End Sub Sub cmdGlossary_Click (Index As Integer) Dim Letter As String Dim macro As String 'Letter is equal to the context string we want to jump to Letter = Chr$(Index + 96) macro = "JumpId(`helpinfo.hlp>glos_win',`" & Letter & "')" Call HelpMenu(7, 0, macro) End Sub Sub cmdHelp_Click () Call HelpMenu(3, 3, "") End Sub Sub Form_Load () crlf$ = Chr$(13) + Chr$(10) m$ = "This program illustrates how to intergrate a Windows Help file " m$ = m$ & "into a VB program. It has no other function." m$ = m$ & crlf$ m$ = m$ & crlf$ m$ = m$ & "The best way to learn is to work with the program and then study the " m$ = m$ & "source code, which is provided." m$ = m$ & crlf$ m$ = m$ & crlf$ m$ = m$ & "To start, click the Help button " m$ = m$ & "below and also select Read Me First from the Help menu. They show " m$ = m$ & "how to access a specific help topic in two ways." txtIntro.Text = m$ End Sub Sub HelpMenu (HelpOption As Integer, ContextNum As Long, macro As String) Select Case HelpOption Case 1 'Display the contents topic r = WinHelpByNum(frmHelpInfohWnd, App.HelpFile, HELP_CONTENTS, 0) Case 2 'Display the Search Dialog Box (See Note 1 at bottom.) r = WinHelpByStr(frmHelpInfohWnd, App.HelpFile, HELP_PARTIALKEY, "") Case 3 'Display the Read_Me_First topic using the MAPed context number r = WinHelpByNum(frmHelpInfohWnd, App.HelpFile, HELP_CONTEXT, ContextNum) Case 4 'Display Glossary in secondary window (See Note 2 at bottom.) macro = "JumpId(`" & App.HelpFile & ">glos_win',`glossary')" r = WinHelpByNum(frmHelpInfohWnd, App.HelpFile, HELP_FORCEFILE, 0) r = WinHelpByStr(frmHelpInfohWnd, App.HelpFile, HELP_COMMAND, macro) Case 5 'Help on Help r = WinHelpByNum(frmHelpInfohWnd, "dummy", HELP_HELPONHELP, 0) Case 6 'Terminate the Help file. (Make sure to do this before exiting the application.) r = WinHelpByNum(frmHelpInfohWnd, App.HelpFile, HELP_QUIT, 0) Case 7 'Execute jump macro to specific glossary letter and close the main help window. This is a generalization of Case 4. r = WinHelpByNum(frmHelpInfohWnd, App.HelpFile, HELP_FORCEFILE, 0) r = WinHelpByStr(frmHelpInfohWnd, App.HelpFile, HELP_COMMAND, macro) r = WinHelpByStr(frmHelpInfohWnd, App.HelpFile, HELP_COMMAND, "CloseWindow(`main')") Case 8 'Execute macro r = WinHelpByStr(frmHelpInfohWnd, App.HelpFile, HELP_COMMAND, macro) End Select '******************************************************************* 'NOTE 1 ' The "traditional" way you might think to invoke the Search Dialog Box is to ' use the HELP_COMMAND and pass the Search macro, as in the statement below: ' r = WinHelpByStr(frmHelpInfohWnd, App.HelpFile, HELP_COMMAND, "Search()") ' This works fine, the Help file is started and the content topic displayed. Then ' the Search Dialog Box is brought up, as if the user had clicked the Search ' Button. ' A better way (I think), and the way VB Help works, is to use the HELP_PARTIALKEY ' command and pass a null string keyword, as in Case 2 above. Using this ' method, the Search Dialog Box is brought up in the calling application. After ' the user selects a topic, that topic is displayed directly, bypassing the ' content topic. 'NOTE 2 ' It is not possible to display a secondary window, without first displaying the ' main window (as far as I can figure out), which is what the HELP_FORCEFILE does. ' (If anybody knows different, please pass it on to me.) End Sub Sub menuExit_Click () Call HelpMenu(6, 0, "") End End Sub Sub mnuContents_Click () Call HelpMenu(1, 0, "") End Sub Sub mnuCopyright_Click () t$ = "Copyright 1993 Crunch Software Corporation" m$ = m$ & "This file and all ancillary materials that came with it are copyrighted. You " m$ = m$ & "are granted a royalty-free right to incorporate these works, in whole or in " m$ = m$ & "part, into other products, so long as you don't hold Crunch Software " m$ = m$ & "responsible. You may distribute these materials as you see fit, on a non-" m$ = m$ & "commercial basis. However, you must distribute all the files together." MsgBox m$, 64, t$ End Sub Sub mnuGlossary_Click () Call HelpMenu(4, 0, "") End Sub Sub mnuHelpOnHelp_Click () Call HelpMenu(5, 0, "") End Sub Sub mnuReadMeFirst_Click () Call HelpMenu(3, 3, "") End Sub Sub mnuSearch_Click () Call HelpMenu(2, 0, "") End Sub